Monster Media 1996 #15/Monster Media Number 15 (Monster Media)(July 1996).ISO/syncrnet/oneline1.zip/ONELINER.SRC

Text File | 1996-04-21 | 8KB | 290 lines

# ┌──────────────────────────────────────────────────────────────────────────┐
# │      ONELINER.SRC   (Chuckle Box One-Liners)                             │
# │                                                                          │
# │          Version:   1.0  (Released 21 Apr 1996) for SBBS 2.20 - Rev B    │
# │           Author:   Robert Nykvist  aka  Chuckles@LAUGHBOX               │
# │      Support BBS:   The Chuckle Box BBS  [phone]                  │
# │                                                                          │
# │      Quick Start:   1.  Move ONELINER.SRC to your \EXEC directory.       │
# │                     2.  Edit paths in script as needed for your system.  │
# │                     3.  Compile ONELINER.SRC with Baja compiler.         │
# │                     4.  Make script available to your callers.           │
# │                                                                          │
# │             NOTE:       This script uses file I/O commands to create     │
# │                         and append to One-Liner file.  Check the paths!  │
# │                         It also awards users with credits for posting.   │
# └──────────────────────────────────────────────────────────────────────────┘
!INCLUDE SBBSDEFS.INC
!INCLUDE FILE_IO.INC

# Top of Generic Menu.
:top
CMD_HOME
cls
crlf
crlf
crlf
crlf
crlf
print "
n
h
¥
7█▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀
k▄
0"
crlf
print "
¥
w
7█ 
n
k
7┌─────────────
h
w┐ 
k█
0"
crlf
print "
¥
w
7█ 
n
k
7│  OneLiners  
h
w│ 
k█
0"
crlf
print "
¥
w
7█ 
n
k
7│ 
r─────────── 
h
w│ 
k█
0"
crlf
print "
¥
w
7█ 
n
k
7│    
h
yV
n
b
7iew     
h
w│ 
k█
0"
crlf
print "
¥
w
7█ 
n
k
7│    
h
yA
n
b
7dd      
h
w│ 
k█
0"
crlf
compare_ars SYSOP
  if_true
    print "
¥
w
7█ 
n
k
7│    
h
yE
n
b
7dit     
h
w│ 
k█
0"
    crlf
  end_if
print "
¥
w
7█ 
n
k
7│    
h
yQ
n
b
7uit     
h
w│ 
k█
0"
crlf
print "
¥
w
7█ 
n
k
7└
h
w─────────────┘ 
k█
0"
crlf
print "
¥
w
7▀
k▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄█
0
n"
crlf
crlf
crlf
crlf
crlf

# Give SysOp Prompt for his Extra EDIT command.
compare_ars SYSOP
  if_true
    print "
w
h                              Enter (
yV
w/
yA
w/
yE
w/
yQ
w) : 
n"
  else
    print "
w
h                               Enter (
yV
w/
yA
w/
yQ
w) : 
n"
  end_if

# Get User Input : View, Add or Quit (Cmd-E only works for SysOp)
node_action node_xtrn
sync
getcmd AEQV?

# Redisplay Menu
cmdkey ?
  cmd_pop
  goto top
end_cmd

# Add a One-Liner.  Goto WRITE
cmdkey A
  cmd_pop
  goto write
end_cmd

# Edit Option for SysOp.  Paths Uses "cstr" string (double slashes).
cmdkey E
  compare_ars SYSOP
    if_true
      crlf
# ┌──────────────────────────────────────┐
# │ P A T H   C H E C K   W A R N I N G  │
# └──────────────────────────────────────┘
      setstr "d:\\xtrn\\liners\\oneline.dab"
      ungetstr
      edit_text_file
    end_if
  cmd_pop
  goto top
end_cmd

# Quit Script.  Goto BYEBYE
cmdkey Q
  cmd_pop
  goto byebye
end_cmd

# View One-Liners.  Customize your own header Info.
cmdkey V
:View
  cls
  crlf
  print "                           
n
rC
hh
yu
wckle Box One-Lin
ye
rr
n
rs"
  crlf
  print "
h
w──────────────────────────────────────────────────────────────────────────────
n"
# ┌──────────────────────────────────────┐
# │ P A T H   C H E C K   W A R N I N G  │
# └──────────────────────────────────────┘
# Checking to see if file is there.  If so, print most recent 16 lines.
   chkfile "d:\xtrn\liners\oneline.dab"
    if_true
      setstr "d:\\xtrn\\liners\\oneline.dab"
# P_NOATCODES disables expansion of SYSTEM variables like @USER@
# Replace the below P_NOATCODES with 0 to have some variable fun.  <Chuckle>
# e.g. :  All are invited to @USER@'s house for a wild party...
      printtail str P_NOATCODES 16
    else
      crlf
      print "
y
h        No one has written yet, or the SysOp has screwed up somewhere."
      crlf
    end_if
  print "
h
w──────────────────────────────────────────────────────────────────────────────
n"
  crlf
  pause
  cmd_pop
goto top
end_cmd

# Add One-Liner
:Write
cls
crlf
crlf

# Define One-Liner String Variable.  Send them Prompt Info.
str one
print "
r
hWrite something fun now. 
y (
w1
n
c-Line
h
y) 
n
m Press ENTER when done."
crlf
crlf
print "
h
y > "

# Get user input - Variable ONE.
sync
getstr one 70 K_LINE|K_NOEXASC|K_MSG

# If NULL input, take them back to the Top of the Menu.
compare one ""
  if_true
    cmd_pop
    goto top
  end_if

# Otherwise, Let them see what they have done.  Display it.
:displayit
 crlf
 print "
r
h─────────────────────────────────────────────────────────────────────────────
h
w"
 crlf
 print "
n■ 
h
y"
 print one
 crlf
print "
r
h─────────────────────────────────────────────────────────────────────────────
n"
crlf
crlf

# Double check to see if they want to post it or not.
print "
r
hIs this OK to post? 
y (
wY
n/
h
wN
y) > 
n"
sync
getcmd YN

# Post  One-Liner
cmdkey Y

# This area blocked off.  If you have SmegBEEP and wish to censor input
# Unblock/Edit the below code and recompile.
# copy str one
# exec_bin smegbeep
# compare str "Censored"
#   if_true
#     crlf
#     print "
r
hNasty A$$ Word Detected - 
wPost Aborted..."
#     crlf
#     crlf
#     pause
#     cmd_pop
#     goto top
#   end_if

# Adding random color variety to the one-liners using RANDOM & COMPARE.
# Can be over-ridden by use of Ctrl_A codes allowed in getstr input.
# Define Random Variable & String
  int number
  str two
  random number 7
  compare number 0
    if_true
      set two "
n■ 
h
m"
    end_if
  compare number 1
    if_true
      set two "
n■ 
h
g"
    end_if
  compare number 2
    if_true
      set two "
n■ 
h
w"
    end_if
  compare number 3
    if_true
      set two "
n■ 
h
r"
    end_if
  compare number 4
    if_true
      set two "
n■ 
h
c"
    end_if
  compare number 5
    if_true
      set two "
n■ 
h
y"
    end_if
  compare number 6
    if_true
      set two "
n■ 
h
b"
    end_if

# Define File Variable
  int file

# Appending user input to end of ONELINE.DAB file.
# Open File.  If non-existant, create it.
# ┌──────────────────────────────────────┐
# │ P A T H   C H E C K   W A R N I N G  │
# └──────────────────────────────────────┘
  fopen file O_CREAT|O_WRONLY|O_APPEND "d:\xtrn\liners\oneline.dab"

# Print Random Ctrl-A Color (Variable TWO from above)
    fprintf file "%s" two

# Print User Input to file, and end with Ctrl-A code "
(" - It hides text.
    fprintf file "%s
n
( [" one

# User number is hidden from users with less than 90 security level.
# You can change that level.  See page 244, 8/95 -SysOp Manual
# After printing user Number, restore display "
)" and add return.
    copy str _USERON.NUMBER
    fprintf file "%s]
)\r\n" str

# Close the lid and flush.  <Chuckle>
  fclose file

# Alert SysOp of One-Liner Post so he/she can quickly go check it out. <G>
# ┌──────────────────────────────────────┐
# │ P A T H   C H E C K   W A R N I N G  │
# └──────────────────────────────────────┘
  exec "command /c echo 
m
h%a 
whas added a One-Liner! >> c:\sbbs\data\msgs\0001.msg"
  crlf
  crlf

# Adding Visual Dynamics for User pleasure.  <Chuckle>
  print "
r
hSaving Post
, .
, .
, . 
wThanks for posting
y @USER@!
  crlf
  crlf

# Incentive for users to post (Participate).  Free Credits.  :)
  print "
cAdding 
m25 k 
ccredits to your account."
  crlf
  crlf
  pause
  adjust_user_credits 25
  cmd_pop
  goto top
# End Cmdkey Y
end_cmd

# Darn, they changed their mind.  Don't Add Post, go back to top of menu.
cmdkey N
  cmd_pop
  goto top
end_cmd

# FALL THROUGH (Just in case...)
cmd_pop
goto top

# Exit Script
:byebye